-- card: 5175 from stack: in.hc
-- bmap block id: 0
-- flags: 0000
-- background id: 2813
-- name: D4
----- HyperTalk script -----
on openCard
  lock screen
  colorizeHC "Add","PLANETS:PLUTO:UI_MAC:D04.PIC"
  unlock screen
end openCard


on closeCard
  lock screen
  colorizeHC "colorFill"   -- redraw previous screens
  unlock screen
end closeCard

on goEvent
  lock screen
  go to cd "D1"
  unlock screen
end goEvent